home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / EGALE / BEISPIEL / BEISPIE1.TXT < prev    next >
Encoding:
Text File  |  1995-09-26  |  629 b   |  36 lines
  1. FUNCTION wochentag$(d$)   ! Alt
  2.   LOCAL tag$,jahr,mon,tag,mo,jh,je,t
  3.   '
  4.   jahr=VAL(MID$(d$,7))
  5.   mon=VAL(MID$(d$,4,2))
  6.   tag=VAL(MID$(d$,1,2))
  7.   '
  8.   mo=mon-2
  9.   jh=jahr DIV 100
  10.   je=jahr MOD 100
  11.   IF mo<=0
  12.     mo=mo+12
  13.     je=je-1
  14.   ENDIF
  15.   IF je<0
  16.     je=99
  17.     jh=jh-1
  18.   ENDIF
  19.   t=tag+INT(2.6*mo-0.2)+INT(je/4+je)+(INT(jh/4)-2*jh)
  20.   WHILE t<0
  21.     t=t+7
  22.   WEND
  23.   t=t MOD 7
  24.   RESTORE wochentage
  25.   tag$="Sonntag"
  26.   FOR i%=1 TO t
  27.     READ tag$
  28.   NEXT i%
  29.   RETURN tag$
  30.   REM Hier kommen alle (!) Wochentage:
  31. wochentage:
  32.   DATA Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag,Sonntag
  33. ENDFUNC
  34.  
  35.  
  36.